netstat if (3.1 isin $os) _error Sorry, the attack detectors do not work properly on Windows 3.11 | dispa Detecting attack statistics... | run -n $_ppdir $+ do-ns.bat $ddename $_ppdir /_nsdone -s
icmp netstat
_nsdone {
set %.file $_ppdir $+ ns-temp.txt
if ($lines(%.file) < 55) _error Error running NETSTAT.EXE!
set %.vars frag1.frag2.frag3.frag4.frag5.frag6.nuke1.nuke2.nuke3.nuke4.nuke5.echo1.echo2.echo3.echo4.echo5.echo6.udp1.udp2.udp3.udp4
set %.lines 15.16.17.18.19.20.27.28.29.30.31.32.33.34.35.36.37.52.53.54.55
set %.toks 4.4.4.5.5.4.3.3.3.3.2.2.4.2.4.3.5.4.4.4.4
detect if (3.1 isin $os) _error Sorry, the attack detectors do not work properly on Windows 3.11 | unset %_detect.* %_dwarn.* | if ($1 == $null) set %_detect.sec 5 | else set %_detect.sec $1 | if ($2 == $null) set %_detect.max 5 | else set %_detect.max $2 | if ($3 == $null) set %_detect.sens 2 | else set %_detect.sens $3 | set %.delay $calc(%_detect.sec * 1000) | run -n $_ppdir $+ loop-ns.bat $ddename $_ppdir /_nsloop %.delay -s
_nsloop {
set %.file $_ppdir $+ ns-temp.txt
if ($lines(%.file) < 55) _error Error running NETSTAT.EXE!
set %.vars frag1.frag2.frag3.frag4.frag5.frag6.nuke1.nuke2.nuke3.nuke4.nuke5.echo1.echo2.echo3.echo4.echo5.echo6.udp1.udp2.udp3.udp4
set %.lines 15.16.17.18.19.20.27.28.29.30.31.32.33.34.35.36.37.52.53.54.55
set %.toks 4.4.4.5.5.4.3.3.3.3.2.2.4.2.4.3.5.4.4.4.4
if ($1 isin -v) { if (%_repjoins == $null) dispa Not currently attempting any repeated joins. | else dispa Currently attempting repeated joins of- %col.target $+ $_s2cs(%_repjoins) | return }
if ($1 isin -c) { unset %_repjoins | .timer902 off | dispa All repeated join attempts canceled. | return }
set %.chan $_patch($1)
if (%.chan ischan) _error You are already on $+ %.chan $+ !
set %cdp.inifile $remove($sline(@CDINI,1),$mircdir)
disps CD track info will be stored in- %col.info2 $+ $sline(@CDINI,1)
window -c @CDINI
}
_cdreset unset %_cdp.* %_^cdp.* | if ($_isopen(@CD)) window -n @CD
cdcheck {
if (3.1 isin $os) _error Sorry, the CD player does not work properly on Windows 3.11
if (?: !iswm %cdp.drive) cd d
if (%cdp.inifile == $null) cd i
_cdreset
if (%_cc.repeats < 1) dispa Reading CD info...
set %.file %cdp.drive $+ \track01.cda
if ($_not($exists(%.file))) {
if ($_vi(_cc.repeats) > 5) {
unset %_cc.repeats
if ($_isopen(@CD)) window -c @CD
_error No audio CD found. If one is inserted, please retry command. Note that P&P does not support data CDs with audio tracks.
}
.timer920 1 2 cdcheck
halt
}
unset %_cc.repeats
run -n $_ppdir $+ do-cd.bat $ddename $_ppdir /_cdcfin %cdp.drive
}
_cdcfin {
.timer920 off
set %.file $_ppdir $+ cd-temp.txt
write -il1 %.file 200
set %_cdp.serial $read -nl1 %.file
if ((%_cdp.serial == $null) || (%_cdp.serial == x)) { unset %_cdp.serial | _error No audio CD found. If one is inserted, please retry command. Note that P&P does not support data CDs with audio tracks. }
set %_cdp.tracks $read -nl2 %.file
set %_cdp.title $_cdi.read(%_cdp.serial,title)
if (%_cdp.title == $null) set %_cdp.title (unknown)
set %_cdp.artist $_cdi.read(%_cdp.serial,artist)
if (%_cdp.artist == $null) set %_cdp.artist (unknown)
cdplay if ($1 == $null) { dispa Running CD player... | cdtrack 1 -q } | else cdtrack $1-
cddrive if ($1 == $null) _askr cddrive Enter the letter of your CD drive- | set %cdp.drive $upper($left($1,1)) $+ : | dispa Drive %col.target $+ %cdp.drive $+ will now be used as your CD drive.
cdedit {
if (3.1 isin $os) _error Sorry, the CD player does not work properly on Windows 3.11
if (?: !iswm %cdp.drive) cd d
if (%cdp.inifile == $null) cd i
if (%_cdp.serial == $null) { dispa No CD has been defined- Insert a CD and press %col.option $+ F3 to read it. | halt }
if ($1 == $null) { cdview | return }
set %_arhelp cdedit $1
if ($left($1,1) == t) {
if ($2 == $null) {
if ((%_cdp.title == $null) || ($left(%_cdp.title,1) == $chr(40))) _askr _arhelp New title for CD?
else _pentry _arhelp $+ $_s2p(%_cdp.title) New title for CD?
}
set %_cdp.title $2-
_cdi.write %_cdp.serial title $2-
if ($_isopen(@CD)) rline @CD 4 CD Title: $+ %_cdp.title
}
elseif ($left($1,1) == a) {
if ($2 == $null) {
if ((%_cdp.artist == $null) || ($left(%_cdp.artist,1) == $chr(40))) _askr _arhelp New artist for CD?
else _pentry _arhelp $+ $_s2p(%_cdp.artist) New artist for CD?
}
set %_cdp.artist $2-
_cdi.write %_cdp.serial artist $2-
if ($_isopen(@CD)) rline @CD 5 CD Artist: $+ %_cdp.artist
}
elseif (($1 !isnum) || ($1 < 1) || ($1 > %_cdp.tracks)) _error You can only edit the title, artist, or a track number.
else {
set %.old %_cdp.tr. [ $+ [ $1 ] ]
if ($2 == $null) {
if ((%.old == $null) || ($left(%.old,1) == $chr(40))) _askr _arhelp New track title for track $1 $+ ?
else _pentry _arhelp $+ $_s2p(%.old) New track title for track $1 $+ ?